Caption = "Property Sheet for Sample PolyText Control"
Height = 3900
Left = 45
TabIndex = 2
Top = 1065
Width = 6345
Begin VB.OptionButton Option1
Caption = "Behaviour"
Height = 360
Left = 90
Style = 1 'Graphical
TabIndex = 4
Top = 255
Value = -1 'True
Width = 1185
End
Begin VB.OptionButton Option2
Caption = "Validation"
Height = 360
Left = 1305
Style = 1 'Graphical
TabIndex = 3
Top = 255
Width = 1185
End
Begin VB.Frame Frame1
Caption = "Behaviour"
Height = 3240
Left = 75
TabIndex = 5
Top = 600
Width = 6210
Begin VB.ComboBox txtButton_Style
Height = 315
ItemData = "PolyMorphDemo.frx":030A
Left = 1485
List = "PolyMorphDemo.frx":031A
Style = 2 'Dropdown List
TabIndex = 13
Top = 300
Width = 2715
End
Begin VB.ComboBox txtOn_Entry
Height = 315
ItemData = "PolyMorphDemo.frx":0366
Left = 1470
List = "PolyMorphDemo.frx":0373
Style = 2 'Dropdown List
TabIndex = 12
Top = 975
Width = 2700
End
Begin VB.CheckBox chkShowErrors
Alignment = 1 'Right Justify
Caption = "ShowErrors"
Height = 285
Left = 150
TabIndex = 11
ToolTipText = "Highlight Content if data is invalid"
Top = 2490
Value = 1 'Checked
Width = 1290
End
Begin VB.TextBox txtMsgError
Height = 330
Left = 1470
TabIndex = 10
Top = 2055
Width = 2700
End
Begin VB.CheckBox chkShow_Time
Alignment = 1 'Right Justify
Caption = "Show Time"
Height = 285
Left = 375
TabIndex = 9
ToolTipText = "Show a time selection on the Date Pop-up"
Top = 630
Width = 1290
End
Begin VB.TextBox txtToolTipText
Height = 330
Left = 1470
TabIndex = 8
Top = 1680
Width = 2700
End
Begin VB.CheckBox chkAutoComplete
Alignment = 1 'Right Justify
Caption = "AutoComplete"
Height = 285
Left = 150
TabIndex = 7
ToolTipText = "Find closest match in the list"
Top = 2850
Width = 1290
End
Begin VB.TextBox txtDisplayFormat
Height = 330
Left = 1470
TabIndex = 6
Top = 1320
Width = 2700
End
Begin VB.Label lblButton_Style
Caption = "Button Style:"
Height = 240
Left = 150
TabIndex = 18
ToolTipText = "Which buttons do you want to use"
Top = 330
Width = 2700
End
Begin VB.Label lblMsgError
Caption = "Error Text"
Height = 240
Left = 150
TabIndex = 17
ToolTipText = "Text to Msg if invalid . Leave blank for no message"
Top = 2100
Width = 2700
End
Begin VB.Label lblToolTipText
Caption = "ToolTipText:"
Height = 240
Left = 150
TabIndex = 16
ToolTipText = "Tooltip"
Top = 1770
Width = 2700
End
Begin VB.Label lblDisplayFormat
Caption = "DisplayFormat:"
Height = 240
Left = 150
TabIndex = 15
ToolTipText = "Standard VB Format$ for displaying content"
Top = 1365
Width = 2700
End
Begin VB.Label lblOn_Entry
Caption = "On_Entry:"
Height = 240
Left = 150
TabIndex = 14
ToolTipText = "Cursor Position when control gets focus"
Top = 1005
Width = 2700
End
End
Begin VB.Frame Frame2
Caption = "Validation"
Height = 3240
Left = 75
TabIndex = 19
Top = 600
Width = 6210
Begin VB.ComboBox txtData_Type
Height = 315
ItemData = "PolyMorphDemo.frx":03BB
Left = 1410
List = "PolyMorphDemo.frx":03DA
Style = 2 'Dropdown List
TabIndex = 30
Top = 300
Width = 2700
End
Begin VB.CheckBox chkRequired
Alignment = 1 'Right Justify
Caption = "Required"
Height = 285
Left = 135
TabIndex = 29
Top = 720
Width = 1500
End
Begin VB.TextBox txtMin
Height = 330
Left = 1410
TabIndex = 28
Top = 1905
Width = 960
End
Begin VB.TextBox txtMax
Height = 330
Left = 1410
TabIndex = 27
Top = 1425
Width = 960
End
Begin VB.TextBox txtMaxLength
Height = 330
Left = 1410
TabIndex = 26
Top = 1005
Width = 960
End
Begin VB.CheckBox chkLocked
Alignment = 1 'Right Justify
Caption = "Locked"
Height = 285
Left = 105
TabIndex = 25
Top = 2280
Width = 1500
End
Begin VB.Frame Frame4
Caption = "List Items"
Height = 2055
Left = 2490
TabIndex = 20
Top = 1020
Width = 3345
Begin VB.CommandButton Command1
Caption = "Clear"
Height = 300
Left = 105
TabIndex = 24
Top = 285
Width = 780
End
Begin VB.CommandButton Command2
Caption = "Add"
Height = 300
Left = 930
TabIndex = 23
Top = 285
Width = 780
End
Begin VB.ListBox List1
Height = 1230
Left = 105
TabIndex = 22
Top = 675
Width = 3135
End
Begin VB.CheckBox chkLimitToList
Alignment = 1 'Right Justify
Caption = "LimitToList"
Height = 285
Left = 1740
TabIndex = 21
Top = 300
Width = 1500
End
End
Begin VB.Label lblMin
Caption = "Min:"
Height = 240
Left = 135
TabIndex = 34
Top = 1965
Width = 2700
End
Begin VB.Label lblMax
Caption = "Max:"
Height = 240
Left = 135
TabIndex = 33
Top = 1485
Width = 2700
End
Begin VB.Label lblData_Type
Caption = "Data_Type:"
Height = 240
Left = 135
TabIndex = 32
Top = 375
Width = 2700
End
Begin VB.Label lblMaxLength
Caption = "MaxLength:"
Height = 240
Left = 135
TabIndex = 31
Top = 1080
Width = 2700
End
End
End
Begin VB.Frame Frame3
Caption = "Sample PolyText"
Height = 765
Left = 105
TabIndex = 0
Top = 180
Width = 5010
Begin PolyMorph.PolyText PolyText1
Height = 330
Left = 105
TabIndex = 38
Top = 300
Width = 4800
_ExtentX = 8467
_ExtentY = 582
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
AutoComplete = 0 'False
ShowErrors = -1 'True
ListIndex = -1
End
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1575
Left = 6570
Picture = "PolyMorphDemo.frx":043B
Top = 150
Width = 1980
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = $"PolyMorphDemo.frx":2DB5
Height = 3615
Left = 6465
TabIndex = 1
Top = 1800
Width = 2160
End
Attribute VB_Name = "PolyMorphDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chkAutoComplete_Click()
PolyText1.AutoComplete = chkAutoComplete
End Sub
Private Sub chkLimitToList_Click()
PolyText1.LimitToList = chkLimitToList
End Sub
Private Sub chkLocked_Click()
PolyText1.Locked = chkLocked
End Sub
Private Sub chkRequired_Click()
PolyText1.Required = chkRequired.Value
End Sub
Private Sub chkShow_Time_Click()
PolyText1.Show_Time = chkShow_Time
End Sub
Private Sub chkShowErrors_Click()
PolyText1.ShowErrors = chkShowErrors
End Sub
Private Sub Command1_Click()
PolyText1.Clear
List1.Clear
End Sub
Private Sub Command2_Click()
'On Error Resume Next
X = InputBox("Enter the value to add to the list")
If X = "" Or Trim(X) = "" Then Exit Sub
PolyText1.AddItem X
List1.AddItem X
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command4_Click()
frmAbout.Show 1
End Sub
Private Sub Command5_Click()
frmMore.Show 1
End Sub
Private Sub Form_Load()
txtButton_Style.ListIndex = 2
txtData_Type.ListIndex = 8
End Sub
Private Sub Option1_Click()
If Option1.Value Then
Frame1.ZOrder
Frame2.ZOrder
End If
End Sub
Private Sub Option2_Click()
If Option1.Value Then
Frame1.ZOrder
Frame2.ZOrder
End If
End Sub
Private Sub PolyText1_ButtonClick()
MsgBox ("If you do not add anything into the PolyText's List but choose to display the drop button a ButtonClick event will be generated(This message is being generated in this demo during the ButtonClick event!). This enables you to implement your own user-interface over a standard PolyText control. To create a list, see the Validation sheet."), , "PolyText Demo"
(.txt)